home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / dbase / tm_dbms22.lha / dbmsv2.2 / arexx / DB_SzukajCi稟u.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-18  |  784b  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. OPTIONS RESULTS;lan='Sys:Prefs/DBMS_PLT.prefs';pref='Sys:Prefs/DBMS.prefs';k=0;s=OPEN('Prefs',pref,'r');DO FOREVER;w=READLN('Prefs');IF w='' THEN LEAVE;END;DO FOREVER;w=READLN('Prefs');IF w=''|EOF('Prefs') THEN LEAVE;IF LEFT(w,8)='ENGLI = '&RIGHT(w,1)='1' THEN lan='Sys:Prefs/DBMS_ENT.prefs';END;s=CLOSE('Prefs');s=OPEN('lan',lan,'r');DO UNTIL EOF('lan');k=k+1;t.k=READLN('lan');END;s=CLOSE('lan');FIRSTRECORD;RECORD SUM;ile=result;MODE 'Find';GETFIELD 'Nazwa';szukany=result;IF szukany='' THEN;DO;OKAY1 t.23;EXIT;END;szukany=COMPRESS(szukany);OKAY1 t.24||szukany;MODE 'Normal';DO i=1 TO ile BY 1;GETFIELD 'Nazwa';pole=result;pole=UPPER(pole);szukany=UPPER(szukany);IF INDEX(pole,szukany)>0 THEN;DO;OKAY2 t.22;IF result=0 THEN LEAVE;END;NEXTRECORD;END